home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Days of Rage Demo / FE.Dxr / 00112.ls < prev    next >
Encoding:
Text File  |  1996-11-15  |  500 b   |  22 lines
  1. on mouseDown
  2.   set spr to the clickOn
  3.   puppetSprite(spr, 1)
  4.   set mn to the number of member the member of sprite spr
  5.   set the memberNum of sprite spr to mn + 1
  6.   updateStage()
  7.   repeat while the mouseDown = 1
  8.     if rollOver(spr) then
  9.       set the memberNum of sprite spr to mn + 1
  10.       updateStage()
  11.       next repeat
  12.     end if
  13.     set the memberNum of sprite spr to mn
  14.     updateStage()
  15.   end repeat
  16.   puppetSprite(spr, 0)
  17.   updateStage()
  18.   if rollOver(spr) then
  19.     go("order")
  20.   end if
  21. end
  22.